home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
shrlk201.zip
/
_SETUP.1
/
nsUnlock.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-07-22
|
754b
|
41 lines
unit nsUnlock;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TfrmUnlock = class(TForm)
lblName: TLabel;
lblUnlockCode: TLabel;
txtUnlockCode: TEdit;
txtName: TEdit;
btnOk: TButton;
txtUserCompanyName: TEdit;
lblCompanyname: TLabel;
procedure btnOkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmUnlock: TfrmUnlock;
implementation
{$R *.DFM}
procedure TfrmUnlock.btnOkClick(Sender: TObject);
begin
if txtName.Text = '' then
begin
MessageDlg('Please enter a name', mtError, [mbOk], 0);
ModalResult := mrNone;
end;
end;
end.